setClass("ClustOneParamTestRunner",contains="VOneParamTestRunner",
		representation(
				.dummy="ANY"
		),
		prototype=prototype(
				.description="Cluster One parameter test Runner Class"
		)
) 

#methods
setMethod("changeParameters",
		signature="ClustOneParamTestRunner",
		definition=function(.Object,paramValue,...){
			#TODO change compList and return it
			
			retList <-lapply( 1:length(.Object@.compList), FUN=function(n,orgList){
						oldClusterizer <-orgList[[n]]@.clusterizer
						newClusterizer <-changeClustNum(oldClusterizer,paramValue)
						changedListComputer <- changeClusterAlg(orgList[[n]],newClusterizer)
						
						return(changedListComputer)
					},.Object@.compList)
			
			return(retList)
		})